home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / edsb121b.zip / EDSFILE.006 (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-01  |  37KB  |  1,448 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  TBOOLEAN008(4)
  27.     Boolean  TBOOLEAN009(3)
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Boolean  BOOLEAN012
  31.     Boolean  BOOLEAN013
  32.     Boolean  BOOLEAN014
  33.     Integer  INTEGER001
  34.     Integer  INTEGER002
  35.     Integer  INTEGER003
  36.     Integer  INTEGER004
  37.     Integer  INTEGER005
  38.     Integer  INTEGER006
  39.     Integer  INTEGER007
  40.     Integer  INTEGER008
  41.     String   STRING001
  42.     String   STRING002
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   STRING008
  49.     String   STRING009
  50.     String   STRING010
  51.     String   TSTRING011(11)
  52.     Byte     BYTE001
  53.     Byte     BYTE002
  54.     Byte     BYTE003
  55.     Byte     BYTE004
  56.     Byte     BYTE005
  57.     Byte     BYTE006
  58.     Byte     BYTE007
  59.     Byte     BYTE008
  60.     Byte     BYTE009
  61.     Byte     BYTE010
  62.     Byte     TBYTE011(1)
  63.     Byte     BYTE012
  64.     Byte     BYTE013
  65.     Byte     BYTE014
  66.     Word     WORD001
  67.     Word     WORD002
  68.     Word     WORD003
  69.     Word     WORD004
  70.     Word     WORD005
  71.     Int      INT001
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     Gosub LABEL001
  76.     Goto LABEL027
  77.     :LABEL001
  78.     BOOLEAN004 = 1
  79.     If (Exist(PPEPath() + "EDSBACK.XXX")) Then
  80.         FOpen 2, PPEPath() + "EDSBACK.XXX", 2, 2
  81.         If (Ferr(2)) Then
  82.             BOOLEAN004 = 1
  83.         Else
  84.             BOOLEAN004 = 0
  85.         Endif
  86.         If (BOOLEAN004) Then
  87.             PrintLn 
  88.             PrintLn "@X0CEDSBACK.XXX is currently in use by another copy of EDSUTIL or EDSBACK..."
  89.             PrintLn "@X0APlease shut down all other nodes and run EDSUTIL again..."
  90.             PrintLn 
  91.             FClose 2
  92.             Return
  93.         Endif
  94.     Else
  95.         FCreate 2, PPEPath() + "EDSBACK.XXX", 2, 2
  96.         If (Ferr(2)) Then
  97.             BOOLEAN004 = 1
  98.         Else
  99.             BOOLEAN004 = 0
  100.         Endif
  101.         If (BOOLEAN004) Then
  102.             PrintLn 
  103.             PrintLn "@X0CEDSBACK.XXX is currently in use by another copy of EDSUTIL or EDSBACK..."
  104.             PrintLn "@X0APlease shut down all other nodes and run EDSUTIL again..."
  105.             PrintLn 
  106.             FClose 2
  107.             Return
  108.         Endif
  109.         Gosub LABEL026
  110.         PrintLn 
  111.         PrintLn "@X0CCreating EDSBACK.XXX Binary Configuration File..."
  112.         Log "NEW EDSBack Configurations file created...", 0
  113.         FWrite 2, "EDSBack v1.21 Configuration File      " + Chr(13) + Chr(10) + Chr(32) + Chr(26) + Chr(0), 43
  114.         FWrite 2, STRING001, 3
  115.         FWrite 2, BOOLEAN002, 1
  116.         FWrite 2, STRING005, 25
  117.         FWrite 2, INTEGER002, 4
  118.         FWrite 2, STRING008, 30
  119.         FWrite 2, STRING006, 30
  120.         FWrite 2, STRING007, 30
  121.         FWrite 2, BYTE001, 1
  122.         FWrite 2, WORD001, 2
  123.         FWrite 2, BOOLEAN003, 1
  124.         FWrite 2, INTEGER003, 4
  125.         FWrite 2, STRING009, 75
  126.         FWrite 2, WORD002, 2
  127.         FWrite 2, STRING010, 30
  128.         FWrite 2, BYTE013, 1
  129.         FWrite 2, TBYTE011(0), 1
  130.         FWrite 2, TBYTE011(1), 1
  131.         For INTEGER004 = 0 To 11
  132.             FWrite 2, TSTRING011(INTEGER004), 75
  133.         Next
  134.         FWrite 2, BYTE002, 1
  135.         FWrite 2, BYTE003, 1
  136.         FWrite 2, BYTE009, 1
  137.         FWrite 2, BYTE010, 1
  138.         FWrite 2, BYTE005, 1
  139.         FWrite 2, BYTE006, 1
  140.         FWrite 2, INTEGER005, 4
  141.         FWrite 2, INTEGER006, 4
  142.         FWrite 2, BYTE007, 1
  143.         For INTEGER004 = 0 To 4
  144.             FWrite 2, TBOOLEAN008(INTEGER004), 1
  145.         Next
  146.         FWrite 2, BYTE008, 1
  147.         For INTEGER004 = 0 To 3
  148.             FWrite 2, TBOOLEAN009(INTEGER004), 1
  149.         Next
  150.         FWrite 2, WORD003, 2
  151.         FWrite 2, BYTE012, 1
  152.         FWrite 2, BOOLEAN007, 1
  153.         FWrite 2, BOOLEAN010, 1
  154.         FWrite 2, BOOLEAN011, 1
  155.         FWrite 2, WORD004, 2
  156.         FWrite 2, BYTE004, 1
  157.         FWrite 2, BOOLEAN012, 1
  158.         FWrite 2, INTEGER007, 4
  159.         FWrite 2, INTEGER008, 4
  160.         FWrite 2, INT001, 2
  161.         FWrite 2, BOOLEAN013, 1
  162.         FWrite 2, BOOLEAN014, 1
  163.         FWrite 2, BYTE014, 1
  164.         FWrite 2, WORD005, 2
  165.         FWrite 2, Space(1013), 1013
  166.     Endif
  167.     BOOLEAN001 = 0
  168.     :LABEL002
  169.     If (BOOLEAN001) Goto LABEL025
  170.     STRING003 = ""
  171.     PrintLn 
  172.     PrintLn "          @X0F(@X0AT@X0F)@X0Eoggles"
  173.     PrintLn "          @X0F(@X0AS@X0F)@X0Eettings"
  174.     PrintLn "          @X0F(@X0AF@X0F)@X0Eile Paths"
  175.     PrintLn "          @X0F(@X0AR@X0F)@X0Eegistration Information"
  176.     PrintLn 
  177.     PrintLn "          @X0F(@X0AQ@X0F)@X0Euit to EDSUtil Main"
  178.     PrintLn 
  179.     InputStr "Configuration command", STRING003, 11, 1, "TtSsFfRrQqCcv", 2 + 4
  180.     STRING003 = Upper(STRING003)
  181.     Newline
  182.     Select Case (STRING003)
  183.         Case "T"
  184.             INTEGER001 = 1
  185.             BOOLEAN005 = 0
  186.             BOOLEAN006 = 1
  187.             :LABEL003
  188.             If (BOOLEAN005) Goto LABEL018
  189.             If (BOOLEAN006) Then
  190.                 PrintLn 
  191.                 PrintLn "@X0AReading Toggles..."
  192.                 FSeek 2, 46, 0
  193.                 FRead 2, BOOLEAN002, 1
  194.                 FSeek 2, 122, 1
  195.                 FRead 2, BOOLEAN003, 1
  196.                 FSeek 2, 112, 1
  197.                 FRead 2, TBYTE011(0), 1
  198.                 FRead 2, TBYTE011(1), 1
  199.                 FSeek 2, 904, 1
  200.                 FRead 2, BYTE005, 1
  201.                 FRead 2, BYTE006, 1
  202.                 FSeek 2, 8, 1
  203.                 FRead 2, BYTE007, 1
  204.                 For INTEGER004 = 0 To 4
  205.                     FRead 2, TBOOLEAN008(INTEGER004), 1
  206.                 Next
  207.                 FSeek 2, 1, 1
  208.                 For INTEGER004 = 0 To 3
  209.                     FRead 2, TBOOLEAN009(INTEGER004), 1
  210.                 Next
  211.                 FSeek 2, 2, 1
  212.                 FRead 2, BYTE012, 1
  213.                 FRead 2, BOOLEAN007, 1
  214.                 FRead 2, BOOLEAN010, 1
  215.                 FRead 2, BOOLEAN011, 1
  216.                 FSeek 2, 3, 1
  217.                 FRead 2, BOOLEAN012, 1
  218.                 FSeek 2, 10, 1
  219.                 FRead 2, BOOLEAN013, 1
  220.                 FRead 2, BOOLEAN014, 1
  221.             Endif
  222.             Cls
  223.             Select Case (INTEGER001)
  224.                 Case 1
  225.                     PrintLn "@X0FEDSUtil Configuration Toggles  @X0A(Screen #1 of 2)"
  226.                     PrintLn "@X0E────────────────────────────────────────────────────"
  227.                     PrintLn 
  228.                     Print "@X0F (@X091@X0F) @X0AAllow International CallBacks..: @X0B"
  229.                     If (BOOLEAN002) Then
  230.                         PrintLn "Yes"
  231.                     Else
  232.                         PrintLn "No "
  233.                     Endif
  234.                     Print "@X0F (@X092@X0F) @X0AUser's time adjustment.........: @X0B"
  235.                     If (BOOLEAN003) Then
  236.                         PrintLn "Add Time    "
  237.                     Else
  238.                         PrintLn "Replace Time"
  239.                     Endif
  240.                     Print "@X0F (@X093@X0F) @X0AMessage type to send to SysOp..: @X0B"
  241.                     Select Case (BYTE005)
  242.                         Case 1
  243.                             PrintLn "Internal"
  244.                         Case 2
  245.                             PrintLn "External"
  246.                         Case Else
  247.                             PrintLn "None    "
  248.                     End Select
  249.                     Print "@X0F (@X094@X0F) @X0AMessage type to send to User...: @X0B"
  250.                     Select Case (BYTE006)
  251.                         Case 1
  252.                             PrintLn "Internal"
  253.                         Case 2
  254.                             PrintLn "External"
  255.                         Case Else
  256.                             PrintLn "None    "
  257.                     End Select
  258.                     Print "@X0F (@X095@X0F) @X0AComment to use (Date/Phone)....: @X0B"
  259.                     Select Case (BYTE007)
  260.                         Case 0
  261.                             PrintLn "None   "
  262.                         Case 1
  263.                             PrintLn "Date   "
  264.                         Case 2
  265.                             PrintLn "Phone #"
  266.                         Case 3
  267.                             PrintLn "Both   "
  268.                     End Select
  269.                     Print "@X0F (@X096@X0F) @X0ACheck user's name..............: @X0B"
  270.                     If (TBOOLEAN008(0)) Then
  271.                         PrintLn "Yes"
  272.                     Else
  273.                         PrintLn "No "
  274.                     Endif
  275.                     Print "@X0F (@X097@X0F) @X0ACheck user's password..........: @X0B"
  276.                     If (TBOOLEAN008(1)) Then
  277.                         PrintLn "Yes"
  278.                     Else
  279.                         PrintLn "No "
  280.                     Endif
  281.                     Print "@X0F (@X098@X0F) @X0ACheck user's verify string.....: @X0B"
  282.                     If (TBOOLEAN008(2)) Then
  283.                         PrintLn "Yes"
  284.                     Else
  285.                         PrintLn "No "
  286.                     Endif
  287.                     Print "@X0F (@X099@X0F) @X0ACheck user's city..............: @X0B"
  288.                     If (TBOOLEAN008(3)) Then
  289.                         PrintLn "Yes"
  290.                     Else
  291.                         PrintLn "No "
  292.                     Endif
  293.                     Print "@X0F(@X0910@X0F) @X0AUpgrade local callers..........: @X0B"
  294.                     If (BOOLEAN007) Then
  295.                         PrintLn "Yes"
  296.                     Else
  297.                         PrintLn "No "
  298.                     Endif
  299.                     Print "@X0F(@X0911@X0F) @X0AUpdate user's data phone #.....: @X0B"
  300.                     If (BOOLEAN012) Then
  301.                         PrintLn "Yes"
  302.                     Else
  303.                         PrintLn "No "
  304.                     Endif
  305.                 Case 2
  306.                     PrintLn "@X0FEDSUtil Configuration Toggles  @X0A(Screen #2 of 2)"
  307.                     PrintLn "@X0E────────────────────────────────────────────────────"
  308.                     PrintLn 
  309.                     Print "@X0F(@X0912@X0F) @X0AVerify user's city.............: @X0B"
  310.                     If (TBOOLEAN008(4)) Then
  311.                         PrintLn "Yes"
  312.                         Goto LABEL004
  313.                     Endif
  314.                     PrintLn "No "
  315.                     :LABEL004
  316.                     Print "@X0F(@X0913@X0F) @X0AAllow user to use logoff cmnd..: @X0B"
  317.                     If (TBOOLEAN009(0)) Then
  318.                         PrintLn "Yes"
  319.                         Goto LABEL005
  320.                     Endif
  321.                     PrintLn "No "
  322.                     :LABEL005
  323.                     Print "@X0F(@X0914@X0F) @X0AAllow user to return to main...: @X0B"
  324.                     If (TBOOLEAN009(1)) Then
  325.                         PrintLn "Yes"
  326.                         Goto LABEL006
  327.                     Endif
  328.                     PrintLn "No "
  329.                     :LABEL006
  330.                     Print "@X0F(@X0915@X0F) @X0AAllow multiple callbacks.......: @X0B"
  331.                     If (TBOOLEAN009(2)) Then
  332.                         PrintLn "Yes"
  333.                         Goto LABEL007
  334.                     Endif
  335.                     PrintLn "No "
  336.                     :LABEL007
  337.                     Print "@X0F(@X0916@X0F) @X0AAllow trash file display.......: @X0B"
  338.                     If (TBOOLEAN009(3)) Then
  339.                         PrintLn "Yes"
  340.                         Goto LABEL008
  341.                     Endif
  342.                     PrintLn "No "
  343.                     :LABEL008
  344.                     Print "@X0F(@X0917@X0F) @X0APlace to put date comment......: @X0B"
  345.                     If (TBYTE011(0) == 0) Then
  346.                         PrintLn "None                  "
  347.                         Goto LABEL009
  348.                     Endif
  349.                     If (TBYTE011(0) == 1) Then
  350.                         PrintLn "User Record Comment #1"
  351.                         Goto LABEL009
  352.                     Endif
  353.                     If (TBYTE011(0) == 2) Then
  354.                         PrintLn "User Record Comment #2"
  355.                         Goto LABEL009
  356.                     Endif
  357.                     If (TBYTE011(0) == 10) Then
  358.                         PrintLn "Notes PSA #1          "
  359.                         Goto LABEL009
  360.                     Endif
  361.                     If (TBYTE011(0) == 20) Then
  362.                         PrintLn "Notes PSA #2          "
  363.                         Goto LABEL009
  364.                     Endif
  365.                     If (TBYTE011(0) == 30) Then
  366.                         PrintLn "Notes PSA #3          "
  367.                         Goto LABEL009
  368.                     Endif
  369.                     If (TBYTE011(0) == 40) Then
  370.                         PrintLn "Notes PSA #4          "
  371.                         Goto LABEL009
  372.                     Endif
  373.                     If (TBYTE011(0) == 50) Then
  374.                         PrintLn "Notes PSA #5          "
  375.                     Endif
  376.                     :LABEL009
  377.                     Print "@X0F(@X0918@X0F) @X0APlace to put phone comment.....: @X0B"
  378.                     If (TBYTE011(1) == 0) Then
  379.                         PrintLn "None                  "
  380.                         Goto LABEL010
  381.                     Endif
  382.                     If (TBYTE011(1) == 1) Then
  383.                         PrintLn "User Record Comment #1"
  384.                         Goto LABEL010
  385.                     Endif
  386.                     If (TBYTE011(1) == 2) Then
  387.                         PrintLn "User Record Comment #2"
  388.                         Goto LABEL010
  389.                     Endif
  390.                     If (TBYTE011(1) == 10) Then
  391.                         PrintLn "Notes PSA #1          "
  392.                         Goto LABEL010
  393.                     Endif
  394.                     If (TBYTE011(1) == 20) Then
  395.                         PrintLn "Notes PSA #2          "
  396.                         Goto LABEL010
  397.                     Endif
  398.                     If (TBYTE011(1) == 30) Then
  399.                         PrintLn "Notes PSA #3          "
  400.                         Goto LABEL010
  401.                     Endif
  402.                     If (TBYTE011(1) == 40) Then
  403.                         PrintLn "Notes PSA #4          "
  404.                         Goto LABEL010
  405.                     Endif
  406.                     If (TBYTE011(1) == 50) Then
  407.                         PrintLn "Notes PSA #5          "
  408.                     Endif
  409.                     :LABEL010
  410.                     Print "@X0F(@X0919@X0F) @X0AFiletype to execute at the end.: @X0B"
  411.                     If (BYTE012 == 0) Then
  412.                         PrintLn "None          "
  413.                         Goto LABEL011
  414.                     Endif
  415.                     If (BYTE012 == 1) Then
  416.                         PrintLn "PPE file      "
  417.                         Goto LABEL011
  418.                     Endif
  419.                     If (BYTE012 == 2) Then
  420.                         PrintLn "DOS batch file"
  421.                     Endif
  422.                     :LABEL011
  423.                     Print "@X0F(@X0920@X0F) @X0ADo not allow broadcast messages: @X0B"
  424.                     If (BOOLEAN010) Then
  425.                         PrintLn "Yes"
  426.                         Goto LABEL012
  427.                     Endif
  428.                     PrintLn "No "
  429.                     :LABEL012
  430.                     Print "@X0F(@X0921@X0F) @X0AHangup on bad numbers..........: @X0B"
  431.                     If (BOOLEAN011) Then
  432.                         PrintLn "Yes"
  433.                         Goto LABEL013
  434.                     Endif
  435.                     PrintLn "No "
  436.                     :LABEL013
  437.                     Print "@X0F(@X0922@X0F) @X0AImmediately start download.....: @X0B"
  438.                     If (BOOLEAN013) Then
  439.                         PrintLn "Yes"
  440.                         Goto LABEL014
  441.                     Endif
  442.                     PrintLn "No "
  443.                     :LABEL014
  444.                     Print "@X0F(@X0923@X0F) @X0ACheck Caller-ID string.........: @X0B"
  445.                     If (BOOLEAN014) Then
  446.                         PrintLn "Yes"
  447.                         Goto LABEL015
  448.                     Endif
  449.                     PrintLn "No "
  450.             End Select
  451.             :LABEL015
  452.             PrintLn 
  453.             STRING004 = ""
  454.             InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration toggles command", STRING004, 15, 2, "1234567890QqHhPp", 2 + 4
  455.             STRING004 = Upper(Strip(STRING004, " "))
  456.             Newline
  457.             Select Case (STRING004)
  458.                 Case "Q"
  459.                     BOOLEAN005 = 1
  460.                 Case "H"
  461.                     Cls
  462.                     Print "@PON@"
  463.                     DispFile PPEPath() + "EDSCT", 1 + 4
  464.                     Print "@POFF@"
  465.                 Case "P"
  466.                     If (INTEGER001 == 1) Then
  467.                         INTEGER001 = 2
  468.                     Else
  469.                         INTEGER001 = 1
  470.                     Endif
  471.                     BOOLEAN006 = 1
  472.                 Case "1"
  473.                     If (BOOLEAN002) Then
  474.                         BOOLEAN002 = 0
  475.                     Else
  476.                         BOOLEAN002 = 1
  477.                     Endif
  478.                     FSeek 2, 46, 0
  479.                     FWrite 2, BOOLEAN002, 1
  480.                     BOOLEAN006 = 1
  481.                 Case "2"
  482.                     STRING002 = ""
  483.                     InputStr "@X0B(@X0FA@X0B)@X0Cdd or @X0B(@X0FR@X0B)@X0Ceplace time", STRING002, 12, 1, "AaRr", 2 + 4
  484.                     STRING002 = Upper(STRING002)
  485.                     If (STRING002 == "A") Then
  486.                         BOOLEAN003 = 1
  487.                     Else
  488.                         BOOLEAN003 = 0
  489.                     Endif
  490.                     FSeek 2, 169, 0
  491.                     FWrite 2, BOOLEAN003, 1
  492.                     BOOLEAN006 = 1
  493.                 Case "3"
  494.                     STRING002 = ""
  495.                     InputStr "@X0CSend sysop @X0B(@X0FI@X0B)@X0Cnternal, @X0B(@X0FE@X0B)@X0Cxternal, @X0B(@X0FN@X0B)@X0Co message", STRING002, 12, 1, "IiEeNn", 2 + 4
  496.                     STRING002 = Upper(STRING002)
  497.                     Select Case (STRING002)
  498.                         Case "N"
  499.                             BYTE005 = 0
  500.                         Case "I"
  501.                             BYTE005 = 1
  502.                         Case "E"
  503.                             BYTE005 = 2
  504.                     End Select
  505.                     FSeek 2, 1188, 0
  506.                     FWrite 2, BYTE005, 1
  507.                     BOOLEAN006 = 1
  508.                 Case "4"
  509.                     STRING002 = ""
  510.                     InputStr "@X0CSend user @X0B(@X0FI@X0B)@X0Cnternal, @X0B(@X0FE@X0B)@X0Cxternal, @X0B(@X0FN@X0B)@X0Co message", STRING002, 12, 1, "IiEeNn", 2 + 4
  511.                     STRING002 = Upper(STRING002)
  512.                     Select Case (STRING002)
  513.                         Case "N"
  514.                             BYTE006 = 0
  515.                         Case "I"
  516.                             BYTE006 = 1
  517.                         Case "E"
  518.                             BYTE006 = 2
  519.                     End Select
  520.                     FSeek 2, 1189, 0
  521.                     FWrite 2, BYTE006, 1
  522.                     BOOLEAN006 = 1
  523.                 Case "5"
  524.                     STRING002 = ""
  525.                     InputStr "@X0CUse @X0B(@X0FN@X0B)@X0Co, @X0B(@X0FD@X0B)@X0Cate, @X0B(@X0FP@X0B)@X0Chone, @X0B(@X0FB@X0B)@X0Coth comment type", STRING002, 12, 1, "NnDdPpBb", 2 + 4
  526.                     STRING002 = Upper(STRING002)
  527.                     Select Case (STRING002)
  528.                         Case "N"
  529.                             BYTE007 = 0
  530.                         Case "D"
  531.                             BYTE007 = 1
  532.                         Case "P"
  533.                             BYTE007 = 2
  534.                         Case "B"
  535.                             BYTE007 = 3
  536.                     End Select
  537.                     FSeek 2, 1198, 0
  538.                     FWrite 2, BYTE007, 1
  539.                     BOOLEAN006 = 1
  540.                 Case "6"
  541.                     If (TBOOLEAN008(0)) Then
  542.                         STRING002 = YesChar()
  543.                     Else
  544.                         STRING002 = NoChar()
  545.                     Endif
  546.                     InputYN "Check user's name upon callback", STRING002, 12
  547.                     If (STRING002 == YesChar()) Then
  548.                         TBOOLEAN008(0) = 1
  549.                     Else
  550.                         TBOOLEAN008(0) = 0
  551.                     Endif
  552.                     FSeek 2, 1199, 0
  553.                     FWrite 2, TBOOLEAN008(0), 1
  554.                     BOOLEAN006 = 1
  555.                 Case "7"
  556.                     If (TBOOLEAN008(1)) Then
  557.                         STRING002 = YesChar()
  558.                     Else
  559.                         STRING002 = NoChar()
  560.                     Endif
  561.                     InputYN "Check user's password upon callback", STRING002, 12
  562.                     If (STRING002 == YesChar()) Then
  563.                         TBOOLEAN008(1) = 1
  564.                     Else
  565.                         TBOOLEAN008(1) = 0
  566.                     Endif
  567.                     FSeek 2, 1200, 0
  568.                     FWrite 2, TBOOLEAN008(1), 1
  569.                     BOOLEAN006 = 1
  570.                 Case "8"
  571.                     If (TBOOLEAN008(2)) Then
  572.                         STRING002 = YesChar()
  573.                     Else
  574.                         STRING002 = NoChar()
  575.                     Endif
  576.                     InputYN "Check user's verification string upon callback", STRING002, 12
  577.                     If (STRING002 == YesChar()) Then
  578.                         TBOOLEAN008(2) = 1
  579.                     Else
  580.                         TBOOLEAN008(2) = 0
  581.                     Endif
  582.                     FSeek 2, 1201, 0
  583.                     FWrite 2, TBOOLEAN008(2), 1
  584.                     BOOLEAN006 = 1
  585.                 Case "9"
  586.                     If (TBOOLEAN008(3)) Then
  587.                         STRING002 = YesChar()
  588.                     Else
  589.                         STRING002 = NoChar()
  590.                     Endif
  591.                     InputYN "Check user's city (calling from) upon callback", STRING002, 12
  592.                     If (STRING002 == YesChar()) Then
  593.                         TBOOLEAN008(3) = 1
  594.                     Else
  595.                         TBOOLEAN008(3) = 0
  596.                     Endif
  597.                     FSeek 2, 1202, 0
  598.                     FWrite 2, TBOOLEAN008(3), 1
  599.                     BOOLEAN006 = 1
  600.                 Case "10"
  601.                     If (BOOLEAN007) Then
  602.                         STRING002 = YesChar()
  603.                     Else
  604.                         STRING002 = NoChar()
  605.                     Endif
  606.                     InputYN "Upgrade local callers", STRING002, 10
  607.                     Newline
  608.                     If (Upper(STRING002) == YesChar()) Then
  609.                         BOOLEAN007 = 1
  610.                     Else
  611.                         BOOLEAN007 = 0
  612.                     Endif
  613.                     FSeek 2, 1212, 0
  614.                     FWrite 2, BOOLEAN007, 1
  615.                     BOOLEAN006 = 1
  616.                 Case "11"
  617.                     If (BOOLEAN012) Then
  618.                         STRING002 = YesChar()
  619.                     Else
  620.                         STRING002 = NoChar()
  621.                     Endif
  622.                     InputYN "Update user's data phone # after successful callback", STRING002, 10
  623.                     Newline
  624.                     If (Upper(STRING002) == YesChar()) Then
  625.                         BOOLEAN012 = 1
  626.                     Else
  627.                         BOOLEAN012 = 0
  628.                     Endif
  629.                     FSeek 2, 1218, 0
  630.                     FWrite 2, BOOLEAN012, 1
  631.                     BOOLEAN006 = 1
  632.                 Case "12"
  633.                     If (TBOOLEAN008(4)) Then
  634.                         STRING002 = YesChar()
  635.                     Else
  636.                         STRING002 = NoChar()
  637.                     Endif
  638.                     InputYN "Verify user's name & city upon callback (for large user databases)", STRING002, 12
  639.                     If (STRING002 == YesChar()) Then
  640.                         TBOOLEAN008(4) = 1
  641.                     Else
  642.                         TBOOLEAN008(4) = 0
  643.                     Endif
  644.                     FSeek 2, 1203, 0
  645.                     FWrite 2, TBOOLEAN008(4), 1
  646.                     BOOLEAN006 = 1
  647.                 Case "13"
  648.                     If (TBOOLEAN009(0)) Then
  649.                         STRING002 = YesChar()
  650.                     Else
  651.                         STRING002 = NoChar()
  652.                     Endif
  653.                     InputYN "Allow user to logoff from within EDSBack", STRING002, 12
  654.                     If (STRING002 == YesChar()) Then
  655.                         TBOOLEAN009(0) = 1
  656.                     Else
  657.                         TBOOLEAN009(0) = 0
  658.                     Endif
  659.                     FSeek 2, 1205, 0
  660.                     FWrite 2, TBOOLEAN009(0), 1
  661.                     BOOLEAN006 = 1
  662.                 Case "14"
  663.                     If (TBOOLEAN009(1)) Then
  664.                         STRING002 = YesChar()
  665.                     Else
  666.                         STRING002 = NoChar()
  667.                     Endif
  668.                     InputYN "Allow user to return to BBS without callback", STRING002, 12
  669.                     If (STRING002 == YesChar()) Then
  670.                         TBOOLEAN009(1) = 1
  671.                     Else
  672.                         TBOOLEAN009(1) = 0
  673.                     Endif
  674.                     FSeek 2, 1206, 0
  675.                     FWrite 2, TBOOLEAN009(1), 1
  676.                     BOOLEAN006 = 1
  677.                 Case "15"
  678.                     If (TBOOLEAN009(2)) Then
  679.                         STRING002 = YesChar()
  680.                     Else
  681.                         STRING002 = NoChar()
  682.                     Endif
  683.                     InputYN "Allow multiple callbacks (callbacks to the same number more than once)", STRING002, 12
  684.                     If (STRING002 == YesChar()) Then
  685.                         TBOOLEAN009(2) = 1
  686.                     Else
  687.                         TBOOLEAN009(2) = 0
  688.                     Endif
  689.                     FSeek 2, 1207, 0
  690.                     FWrite 2, TBOOLEAN009(2), 1
  691.                     BOOLEAN006 = 1
  692.                 Case "16"
  693.                     If (TBOOLEAN009(3)) Then
  694.                         STRING002 = YesChar()
  695.                     Else
  696.                         STRING002 = NoChar()
  697.                     Endif
  698.                     InputYN "Display trash can file information upon successful # search", STRING002, 12
  699.                     If (STRING002 == YesChar()) Then
  700.                         TBOOLEAN009(3) = 1
  701.                     Else
  702.                         TBOOLEAN009(3) = 0
  703.                     Endif
  704.                     FSeek 2, 1208, 0
  705.                     FWrite 2, TBOOLEAN009(3), 1
  706.                     BOOLEAN006 = 1
  707.                 Case "17"
  708.                     STRING002 = ""
  709.                     PrintLn "@X0B(@X0E1@X0B) @X0FUser record comment #1   @X0B(@X0E2@X0B) @X0FUser record comment #2"
  710.                     PrintLn "@X0B(@X0E3@X0B) @X0FNotes PSA #1  @X0B(@X0E4@X0B) @X0FNotes PSA #2 @X0B(@X0E5@X0B) @X0F Notes PSA #3"
  711.                     PrintLn "@X0B(@X0E6@X0B) @X0FNotes PSA #4  @X0B(@X0E7@X0B) @X0FNotes PSA #5"
  712.                     PrintLn 
  713.                     If (!Psa(6)) PrintLn "@X0ANOTES PSA NOT DETECTED!!  PLEASE INSTALL IF USING COMMENTS WITH IT!"
  714.                     InputStr "Enter location for date comment", STRING002, 15, 1, "1234567", 2 + 4
  715.                     STRING002 = Upper(Strip(STRING002, " "))
  716.                     Select Case (STRING002)
  717.                         Case "1"
  718.                             TBYTE011(0) = 1
  719.                         Case "2"
  720.                             TBYTE011(0) = 2
  721.                         Case "3"
  722.                             TBYTE011(0) = 10
  723.                         Case "4"
  724.                             TBYTE011(0) = 20
  725.                         Case "5"
  726.                             TBYTE011(0) = 30
  727.                         Case "6"
  728.                             TBYTE011(0) = 40
  729.                         Case "7"
  730.                             TBYTE011(0) = 50
  731.                     End Select
  732.                     FSeek 2, 282, 0
  733.                     FWrite 2, TBYTE011(0), 1
  734.                     BOOLEAN006 = 1
  735.                 Case "18"
  736.                     STRING002 = ""
  737.                     PrintLn "@X0B(@X0E1@X0B) @X0FUser record comment #1   @X0B(@X0E2@X0B) @X0FUser record comment #2"
  738.                     PrintLn "@X0B(@X0E3@X0B) @X0FNotes PSA #1  @X0B(@X0E4@X0B) @X0FNotes PSA #2 @X0B(@X0E5@X0B) @X0F Notes PSA #3"
  739.                     PrintLn "@X0B(@X0E6@X0B) @X0FNotes PSA #4  @X0B(@X0E7@X0B) @X0FNotes PSA #5"
  740.                     PrintLn 
  741.                     If (!Psa(6)) PrintLn "@X0ANOTES PSA NOT DETECTED!!  PLEASE INSTALL IF USING COMMENTS WITH IT!"
  742.                     InputStr "Enter location for phone comment", STRING002, 15, 1, "1234567", 2 + 4
  743.                     STRING002 = Upper(Strip(STRING002, " "))
  744.                     Select Case (STRING002)
  745.                         Case "1"
  746.                             TBYTE011(1) = 1
  747.                         Case "2"
  748.                             TBYTE011(1) = 2
  749.                         Case "3"
  750.                             TBYTE011(1) = 10
  751.                         Case "4"
  752.                             TBYTE011(1) = 20
  753.                         Case "5"
  754.                             TBYTE011(1) = 30
  755.                         Case "6"
  756.                             TBYTE011(1) = 40
  757.                         Case "7"
  758.                             TBYTE011(1) = 50
  759.                     End Select
  760.                     FSeek 2, 283, 0
  761.                     FWrite 2, TBYTE011(1), 1
  762.                     BOOLEAN006 = 1
  763.                 Case "19"
  764.                     STRING002 = ""
  765.                     InputStr "@X0F(@X0AP@X0F)@X0Bpe file, @X0F(@X0AB@X0F)@X0Batch file, @X0F(@X0AN@X0F)@X0Bone", STRING002, 11, 1, "PpBbNn", 2 + 4
  766.                     STRING002 = Upper(STRING002)
  767.                     Select Case (STRING002)
  768.                         Case "N"
  769.                             BYTE012 = 0
  770.                         Case "P"
  771.                             BYTE012 = 1
  772.                         Case "B"
  773.                             BYTE012 = 2
  774.                     End Select
  775.                     FSeek 2, 1211, 0
  776.                     FWrite 2, BYTE012, 1
  777.                     BOOLEAN006 = 1
  778.                 Case "20"
  779.                     If (BOOLEAN010) Then
  780.                         STRING002 = YesChar()
  781.                     Else
  782.                         STRING002 = NoChar()
  783.                     Endif
  784.                     InputYN "Allow user to receive broadcast messages while in EDSBack", STRING002, 10
  785.                     Newline
  786.                     If (Upper(STRING002) == YesChar()) Then
  787.                         BOOLEAN010 = 1
  788.                     Else
  789.                         BOOLEAN010 = 0
  790.                     Endif
  791.                     FSeek 2, 1213, 0
  792.                     FWrite 2, BOOLEAN010, 1
  793.                     BOOLEAN006 = 1
  794.                 Case "21"
  795.                     If (BOOLEAN011) Then
  796.                         STRING002 = YesChar()
  797.                     Else
  798.                         STRING002 = NoChar()
  799.                     Endif
  800.                     InputYN "Hangup on user if # is found in Bad Numbers File", STRING002, 10
  801.                     Newline
  802.                     If (Upper(STRING002) == YesChar()) Then
  803.                         BOOLEAN011 = 1
  804.                     Else
  805.                         BOOLEAN011 = 0
  806.                     Endif
  807.                     FSeek 2, 1214, 0
  808.                     FWrite 2, BOOLEAN011, 1
  809.                     BOOLEAN006 = 1
  810.                 Case "22"
  811.                     If (BOOLEAN013) Then
  812.                         STRING002 = YesChar()
  813.                     Else
  814.                         STRING002 = NoChar()
  815.                     Endif
  816.                     InputYN "Start download process after files are flagged for download", STRING002, 10
  817.                     Newline
  818.                     If (Upper(STRING002) == YesChar()) Then
  819.                         BOOLEAN013 = 1
  820.                     Else
  821.                         BOOLEAN013 = 0
  822.                     Endif
  823.                     FSeek 2, 1229, 0
  824.                     FWrite 2, BOOLEAN013, 1
  825.                     BOOLEAN006 = 1
  826.                 Case "23"
  827.                     If (BOOLEAN014) Then
  828.                         STRING002 = YesChar()
  829.                         Goto LABEL016
  830.                     Endif
  831.                     STRING002 = NoChar()
  832.                     :LABEL016
  833.                     InputYN "Check Caller-ID string and automatically upgrade user if a match is found", STRING002, 10
  834.                     Newline
  835.                     If (Upper(STRING002) == YesChar()) Then
  836.                         BOOLEAN014 = 1
  837.                         Goto LABEL017
  838.                     Endif
  839.                     BOOLEAN014 = 0
  840.                     :LABEL017
  841.                     FSeek 2, 1230, 0
  842.                     FWrite 2, BOOLEAN014, 1
  843.                     BOOLEAN006 = 1
  844.             End Select
  845.             Goto LABEL003
  846.             :LABEL018
  847.         Case "S"
  848.             INTEGER001 = 1
  849.             BOOLEAN005 = 0
  850.             BOOLEAN006 = 1
  851.             :LABEL019
  852.             If (BOOLEAN005) Goto LABEL020
  853.             If (BOOLEAN006) Then
  854.                 PrintLn 
  855.                 PrintLn "@X0AReading configuration settings..."
  856.                 FSeek 2, 43, 0
  857.                 FRead 2, STRING001, 3
  858.                 FSeek 2, 30, 1
  859.                 FRead 2, STRING008, 30
  860.                 FRead 2, STRING006, 30
  861.                 FRead 2, STRING007, 30
  862.                 FRead 2, BYTE001, 1
  863.                 FRead 2, WORD001, 2
  864.                 FSeek 2, 1, 1
  865.                 FRead 2, INTEGER003, 4
  866.                 FRead 2, STRING009, 75
  867.                 FRead 2, WORD002, 2
  868.                 FRead 2, STRING010, 30
  869.                 FRead 2, BYTE013, 1
  870.                 FSeek 2, 902, 1
  871.                 FRead 2, BYTE002, 1
  872.                 FRead 2, BYTE003, 1
  873.                 FRead 2, BYTE009, 1
  874.                 FRead 2, BYTE010, 1
  875.                 FSeek 2, 16, 1
  876.                 FRead 2, BYTE008, 1
  877.                 FSeek 2, 4, 1
  878.                 FRead 2, WORD003, 2
  879.                 FSeek 2, 4, 1
  880.                 FRead 2, WORD004, 2
  881.                 FRead 2, BYTE004, 1
  882.                 FSeek 2, 1, 1
  883.                 FRead 2, INTEGER007, 4
  884.                 FRead 2, INTEGER008, 4
  885.                 FRead 2, INT001, 2
  886.                 FSeek 2, 2, 1
  887.                 FRead 2, BYTE014, 1
  888.                 FRead 2, WORD005, 2
  889.             Endif
  890.             Cls
  891.             Select Case (INTEGER001)
  892.                 Case 1
  893.                     PrintLn "@X0FEDSUtil Configuration Settings  @X0A(Screen #1 of 2)"
  894.                     PrintLn "@X0E────────────────────────────────────────────────────"
  895.                     PrintLn 
  896.                     PrintLn "@X0F (@X091@X0F) @X0AModem dialstring.................: @X0B" + Trim(STRING008, " ")
  897.                     PrintLn "@X0F (@X092@X0F) @X0ANumber dialing prefix............: @X0B" + Trim(STRING006, " ")
  898.                     PrintLn "@X0F (@X093@X0F) @X0ANumber dialing suffix............: @X0B" + Trim(STRING007, " ")
  899.                     PrintLn "@X0F (@X094@X0F) @X0AMaximum # of redial attempts.....: @X0B" + String(BYTE001)
  900.                     PrintLn "@X0F (@X095@X0F) @X0AMaximum ticks to wait for connect: @X0B" + String(WORD001)
  901.                     PrintLn "@X0F (@X096@X0F) @X0AAmount of time to adjust.........: @X0B" + String(INTEGER003)
  902.                     PrintLn "@X0F (@X097@X0F) @X0AModem init string before callback: @X0C(See Below)@X0B"
  903.                     PrintLn Space(6) + Trim(STRING009, " ")
  904.                     PrintLn "@X0F (@X098@X0F) @X0AMaximum ticks to wait for hangup.: @X0B" + String(WORD002)
  905.                     PrintLn "@X0F (@X099@X0F) @X0ALong Distance access string......: @X0B" + Trim(STRING010, " ")
  906.                     PrintLn "@X0F(@X0910@X0F) @X0AMinimum # of digits to dial......: @X0B" + String(BYTE004)
  907.                     PrintLn "@X0F(@X0911@X0F) @X0ADefault Exp. Lvl. if no callback.: @X0B" + String(BYTE014)
  908.                     PrintLn "@X0F(@X0912@X0F) @X0ADefault days till expire (no cal): @X0B" + String(WORD005)
  909.                 Case 2
  910.                     PrintLn "@X0FEDSUtil Configuration Settings  @X0A(Screen #2 of 2)"
  911.                     PrintLn "@X0E────────────────────────────────────────────────────"
  912.                     PrintLn 
  913.                     PrintLn "@X0F(@X0913@X0F) @X0ADefault Sec. level if no callback: @X0B" + String(BYTE013)
  914.                     PrintLn "@X0F(@X0914@X0F) @X0AMaximum # name input tries.......: @X0B" + String(BYTE002)
  915.                     PrintLn "@X0F(@X0915@X0F) @X0AMaximum # password input tries...: @X0B" + String(BYTE003)
  916.                     PrintLn "@X0F(@X0916@X0F) @X0AMaximum # verify input tries.....: @X0B" + String(BYTE009)
  917.                     PrintLn "@X0F(@X0917@X0F) @X0AMaximum # city input tries.......: @X0B" + String(BYTE010)
  918.                     PrintLn "@X0F(@X0918@X0F) @X0AMaximum # hangup attempts........: @X0B" + String(BYTE008)
  919.                     PrintLn "@X0F(@X0919@X0F) @X0ATime to delay after connection...: @X0B" + String(WORD003)
  920.                     PrintLn "@X0F(@X0920@X0F) @X0AYour BBS line's areacode.........: @X0B" + Trim(STRING001, " ")
  921.                     PrintLn "@X0F(@X0921@X0F) @X0ANumber of minutes to add on entry: @X0B" + String(WORD004)
  922.                     PrintLn "@X0F(@X0922@X0F) @X0ADaily download bytes to add......: @X0B" + String(INTEGER007)
  923.                     PrintLn "@X0F(@X0923@X0F) @X0ATotal download bytes to add......: @X0B" + String(INTEGER008)
  924.                     PrintLn "@X0F(@X0924@X0F) @X0ATotal files downloaded to add....: @X0B" + String(INT001)
  925.             End Select
  926.             PrintLn 
  927.             STRING004 = ""
  928.             InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration settings command", STRING004, 15, 2, "1234567890QHqhPp", 2 + 4
  929.             STRING004 = Upper(Trim(STRING004, " "))
  930.             Newline
  931.             Select Case (STRING004)
  932.                 Case "Q"
  933.                     BOOLEAN005 = 1
  934.                 Case "H"
  935.                     Cls
  936.                     Print "@PON@"
  937.                     DispFile PPEPath() + "EDSCS", 1 + 4
  938.                     Print "@POFF@"
  939.                 Case "P"
  940.                     If (INTEGER001 == 1) Then
  941.                         INTEGER001 = 2
  942.                     Else
  943.                         INTEGER001 = 1
  944.                     Endif
  945.                     BOOLEAN006 = 1
  946.                 Case "1"
  947.                     InputStr "Your modem dialing string", STRING008, 12, 30, Mask_Ascii(), 2 + 4
  948.                     FSeek 2, 76, 0
  949.                     FWrite 2, STRING008, 30
  950.                     BOOLEAN006 = 1
  951.                 Case "2"
  952.                     InputStr "Modem dialing prefix (PBX Line)", STRING006, 12, 30, Mask_Ascii(), 2 + 4
  953.                     FSeek 2, 106, 0
  954.                     FWrite 2, STRING006, 30
  955.                     BOOLEAN006 = 1
  956.                 Case "3"
  957.                     InputStr "Modem dialing suffix (after number)", STRING007, 12, 30, Mask_Ascii(), 2 + 4
  958.                     FSeek 2, 136, 0
  959.                     FWrite 2, STRING007, 30
  960.                     BOOLEAN006 = 1
  961.                 Case "4"
  962.                     InputInt "Maximum # of redial attempts", BYTE001, 12
  963.                     FSeek 2, 166, 0
  964.                     FWrite 2, BYTE001, 1
  965.                     BOOLEAN006 = 1
  966.                 Case "5"
  967.                     PrintLn "@X0B(18.2 Ticks = 1 Second)"
  968.                     InputInt "Maximum # ticks to wait for connection", WORD001, 12
  969.                     FSeek 2, 167, 0
  970.                     FWrite 2, WORD001, 2
  971.                     BOOLEAN006 = 1
  972.                 Case "6"
  973.                     InputInt "Amount of time to adjust", INTEGER003, 12
  974.                     FSeek 2, 170, 0
  975.                     FWrite 2, INTEGER003, 4
  976.                     BOOLEAN006 = 1
  977.                 Case "7"
  978.                     PrintLn "@X0FModem Initialization String Before Callback @X0B(Enter below)"
  979.                     InputStr "", STRING009, 12, 75, Mask_Ascii(), 2 + 4 + 8
  980.                     FSeek 2, 174, 0
  981.                     FWrite 2, STRING009, 75
  982.                     BOOLEAN006 = 1
  983.                 Case "8"
  984.                     PrintLn "@X0B(18.2 Ticks = 1 Second)"
  985.                     InputInt "Maximum # ticks to wait for hangup", WORD002, 12
  986.                     FSeek 2, 249, 0
  987.                     FWrite 2, WORD002, 2
  988.                     BOOLEAN006 = 1
  989.                 Case "9"
  990.                     InputStr "Long distance access string", STRING010, 12, 30, Mask_Ascii(), 2 + 4
  991.                     FSeek 2, 251, 0
  992.                     FWrite 2, STRING010, 30
  993.                     BOOLEAN006 = 1
  994.                 Case "10"
  995.                     InputInt "Minimum amount of digits allowed in dialing string for callback", BYTE004, 12
  996.                     FSeek 2, 1217, 0
  997.                     FWrite 2, BYTE004, 1
  998.                     BOOLEAN006 = 1
  999.                 Case "11"
  1000.                     InputInt "Default exp. sec. level if no callback occurs", BYTE014, 12
  1001.                     FSeek 2, 1231, 0
  1002.                     FWrite 2, BYTE014, 1
  1003.                     BOOLEAN006 = 1
  1004.                 Case "12"
  1005.                     InputInt "Default # days to add to verification date if no callback occurs", WORD005, 12
  1006.                     FSeek 2, 1232, 0
  1007.                     FWrite 2, WORD005, 2
  1008.                     BOOLEAN006 = 1
  1009.                 Case "13"
  1010.                     InputInt "Default sec. level if no callback occurs", BYTE013, 12
  1011.                     FSeek 2, 281, 0
  1012.                     FWrite 2, BYTE013, 1
  1013.                     BOOLEAN006 = 1
  1014.                 Case "14"
  1015.                     InputInt "Maximum number of name tries", BYTE002, 12
  1016.                     FSeek 2, 1184, 0
  1017.                     FWrite 2, BYTE002, 1
  1018.                     BOOLEAN006 = 1
  1019.                 Case "15"
  1020.                     InputInt "Maximum number of password tries", BYTE002, 12
  1021.                     FSeek 2, 1185, 0
  1022.                     FWrite 2, BYTE003, 1
  1023.                     BOOLEAN006 = 1
  1024.                 Case "16"
  1025.                     InputInt "Maximum number of verification string tries", BYTE002, 12
  1026.                     FSeek 2, 1186, 0
  1027.                     FWrite 2, BYTE009, 1
  1028.                     BOOLEAN006 = 1
  1029.                 Case "17"
  1030.                     InputInt "Enter maximum number of city tries", BYTE002, 12
  1031.                     FSeek 2, 1187, 0
  1032.                     FWrite 2, BYTE010, 1
  1033.                     BOOLEAN006 = 1
  1034.                 Case "18"
  1035.                     InputInt "Maximum # of hangup attempts", BYTE008, 12
  1036.                     FSeek 2, 1204, 0
  1037.                     FWrite 2, BYTE008, 1
  1038.                     BOOLEAN006 = 1
  1039.                 Case "19"
  1040.                     PrintLn "@X0B(18.2 Ticks = 1 Second)"
  1041.                     InputInt "Number of ticks to delay after connection", WORD003, 12
  1042.                     FSeek 2, 1209, 0
  1043.                     FWrite 2, WORD003, 2
  1044.                     BOOLEAN006 = 1
  1045.                 Case "20"
  1046.                     InputStr "Your BBS Line's areacode", STRING001, 12, 3, Mask_Num(), 2 + 4
  1047.                     FSeek 2, 43, 0
  1048.                     FWrite 2, STRING001, 3
  1049.                     BOOLEAN006 = 1
  1050.                 Case "21"
  1051.                     InputInt "Number of minutes to add to user's time upon entry of EDSBack", WORD004, 10
  1052.                     FSeek 2, 1215, 0
  1053.                     FWrite 2, WORD004, 2
  1054.                     BOOLEAN006 = 1
  1055.                 Case "22"
  1056.                     PrintLn 
  1057.                     PrintLn "@X0CNOTE: The following setting will be added to the # of bytes the user has"
  1058.                     PrintLn "      downloaded to the day of the verification."
  1059.                     PrintLn 
  1060.                     PrintLn "@X0Fie., if you want EDSBack to tell PCBoard that the user has already downloaded"
  1061.                     PrintLn "100,000 bytes for day, set this equal to 100000."
  1062.                     PrintLn 
  1063.                     PrintLn "ie., if you want EDSBack to tell PCBoard that the user can download 100,000 "
  1064.                     PrintLn "more bytes today, set this equal to -100000."
  1065.                     PrintLn 
  1066.                     InputInt "Number of bytes to add to user's daily download bytes", INTEGER007, 12
  1067.                     FSeek 2, 1219, 0
  1068.                     FWrite 2, INTEGER007, 4
  1069.                     BOOLEAN006 = 1
  1070.                 Case "23"
  1071.                     PrintLn 
  1072.                     PrintLn "@X0CNOTE: The following setting will be added to the total # of bytes that the "
  1073.                     PrintLn "      user had downloaded since his/her first day of logon."
  1074.                     PrintLn 
  1075.                     PrintLn "@X0Fie., if you want EDSBack to tell PCBoard that the user has already downloaded"
  1076.                     PrintLn "100,000 bytes since his/her first logon date, set this equal to 100000."
  1077.                     PrintLn 
  1078.                     PrintLn "ie., if you want EDSBack to tell PCBoard that the user can download 100,000 "
  1079.                     PrintLn "more total bytes, set this equal to -100000."
  1080.                     PrintLn 
  1081.                     InputInt "Number of bytes to add to user's total download bytes", INTEGER008, 12
  1082.                     FSeek 2, 1223, 0
  1083.                     FWrite 2, INTEGER008, 4
  1084.                     BOOLEAN006 = 1
  1085.                 Case "24"
  1086.                     PrintLn 
  1087.                     PrintLn "@X0CNOTE: The following setting will be added to the total # of files that the "
  1088.                     PrintLn "      user had downloaded since his/her first day of logon."
  1089.                     PrintLn 
  1090.                     PrintLn "@X0Fie., if you want EDSBack to tell PCBoard that the user has already downloaded"
  1091.                     PrintLn "10 files since his/her first logon date, set this equal to 10."
  1092.                     PrintLn 
  1093.                     PrintLn "ie., if you want EDSBack to tell PCBoard that the user can download 10 "
  1094.                     PrintLn "more total bytes, set this equal to -10."
  1095.                     PrintLn 
  1096.                     InputInt "Number of files to add to user's total download files", INT001, 12
  1097.                     FSeek 2, 1227, 0
  1098.                     FWrite 2, INT001, 2
  1099.                     BOOLEAN006 = 1
  1100.             End Select
  1101.             Goto LABEL019
  1102.             :LABEL020
  1103.         Case "F"
  1104.             INTEGER001 = 1
  1105.             BOOLEAN005 = 0
  1106.             BOOLEAN006 = 1
  1107.             :LABEL021
  1108.             If (BOOLEAN005) Goto LABEL022
  1109.             If (BOOLEAN006) Then
  1110.                 PrintLn 
  1111.                 PrintLn "@X0AReading configuration paths..."
  1112.                 FSeek 2, 284, 0
  1113.                 For INTEGER004 = 0 To 11
  1114.                     FRead 2, TSTRING011(INTEGER004), 75
  1115.                 Next
  1116.             Endif
  1117.             Cls
  1118.             Select Case (INTEGER001)
  1119.                 Case 1
  1120.                     PrintLn "@X0FEDSUtil Configuration Paths  @X0A(Screen #1 of 2)"
  1121.                     PrintLn "@X0E────────────────────────────────────────────────────"
  1122.                     PrintLn "@X0F (@X091@X0F) @X0ATrash can file.............@X0C(See Below):"
  1123.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(0), " ") + "@X0E)"
  1124.                     PrintLn "@X0F (@X092@X0F) @X0AAllowed # calling file.....@X0C(See Below):"
  1125.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(1), " ") + "@X0E)"
  1126.                     PrintLn "@X0F (@X093@X0F) @X0AUser name trash file.......@X0C(See Below):"
  1127.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(2), " ") + "@X0E)"
  1128.                     PrintLn "@X0F (@X094@X0F) @X0ABad numbers file...........@X0C(See Below):"
  1129.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(3), " ") + "@X0E)"
  1130.                     PrintLn "@X0F (@X095@X0F) @X0ASysop message file.........@X0C(See Below):"
  1131.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(4), " ") + "@X0E)"
  1132.                     PrintLn "@X0F (@X096@X0F) @X0AUser message file..........@X0C(See Below):"
  1133.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(5), " ") + "@X0E)"
  1134.                 Case 2
  1135.                     PrintLn "@X0FEDSUtil Configuration Paths  @X0A(Screen #2 of 2)"
  1136.                     PrintLn "@X0E────────────────────────────────────────────────────"
  1137.                     PrintLn "@X0F (@X097@X0F) @X0ANumbers menu file..................@X0C(See Below):"
  1138.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(6), " ") + "@X0E)"
  1139.                     PrintLn "@X0F (@X098@X0F) @X0AHelp file..........................@X0C(See Below):"
  1140.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(7), " ") + "@X0E)"
  1141.                     PrintLn "@X0F (@X099@X0F) @X0ALocking timetable..................@X0C(See Below):"
  1142.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(8), " ") + "@X0E)"
  1143.                     PrintLn "@X0F(@X0910@X0F) @X0ASecurity trash file................@X0C(See Below):"
  1144.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(9), " ") + "@X0E)"
  1145.                     PrintLn "@X0F(@X0911@X0F) @X0AFile to flag for user..............@X0C(See Below):"
  1146.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(10), " ") + "@X0E)"
  1147.                     PrintLn "@X0F(@X0912@X0F) @X0AFile to execute upon verification..@X0C(See Below):"
  1148.                     PrintLn "@X0E     (@X0B" + Trim(TSTRING011(11), " ") + "@X0E)"
  1149.             End Select
  1150.             PrintLn 
  1151.             STRING004 = ""
  1152.             InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration file paths command", STRING004, 15, 2, "1234567890QHqhPp", 2 + 4
  1153.             STRING004 = Upper(Strip(STRING004, " "))
  1154.             Newline
  1155.             Select Case (STRING004)
  1156.                 Case "Q"
  1157.                     BOOLEAN005 = 1
  1158.                 Case "H"
  1159.                     Cls
  1160.                     Print "@PON@"
  1161.                     DispFile PPEPath() + "EDSCP", 1 + 4
  1162.                     Print "@POFF@"
  1163.                 Case "P"
  1164.                     If (INTEGER001 == 1) Then
  1165.                         INTEGER001 = 2
  1166.                     Else
  1167.                         INTEGER001 = 1
  1168.                     Endif
  1169.                 Case "1"
  1170.                     PrintLn "@X0FAlready used numbers trash can path & filename  @X0B(Enter below)"
  1171.                     InputStr "", TSTRING011(0), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1172.                     FSeek 2, 284, 0
  1173.                     FWrite 2, TSTRING011(0), 75
  1174.                     BOOLEAN006 = 1
  1175.                 Case "2"
  1176.                     PrintLn "@X0FAllowed numbers to call path & filename  @X0B(Enter Below)"
  1177.                     InputStr "", TSTRING011(1), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1178.                     FSeek 2, 359, 0
  1179.                     FWrite 2, TSTRING011(1), 75
  1180.                     BOOLEAN006 = 1
  1181.                 Case "3"
  1182.                     PrintLn "@X0FUser names trash can path & filename  @X0B(Enter Below)"
  1183.                     InputStr "", TSTRING011(2), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1184.                     FSeek 2, 434, 0
  1185.                     FWrite 2, TSTRING011(2), 75
  1186.                     BOOLEAN006 = 1
  1187.                 Case "4"
  1188.                     PrintLn "@X0FBad # templates path & filename  @X0B(Enter Below)"
  1189.                     InputStr "", TSTRING011(3), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1190.                     FSeek 2, 509, 0
  1191.                     FWrite 2, TSTRING011(3), 75
  1192.                     BOOLEAN006 = 1
  1193.                 Case "5"
  1194.                     PrintLn "@X0FMessage to send to SysOp path & filename  @X0B(Enter Below)"
  1195.                     InputStr "", TSTRING011(4), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1196.                     FSeek 2, 584, 0
  1197.                     FWrite 2, TSTRING011(4), 75
  1198.                     BOOLEAN006 = 1
  1199.                 Case "6"
  1200.                     PrintLn "@X0FMessage to send to user path & filename  @X0B(Enter Below)"
  1201.                     InputStr "", TSTRING011(5), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1202.                     FSeek 2, 659, 0
  1203.                     FWrite 2, TSTRING011(5), 75
  1204.                     BOOLEAN006 = 1
  1205.                 Case "7"
  1206.                     PrintLn "@X0FNumber selection menu path & filename  @X0B(Enter Below)"
  1207.                     InputStr "", TSTRING011(6), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1208.                     FSeek 2, 734, 0
  1209.                     FWrite 2, TSTRING011(6), 75
  1210.                     BOOLEAN006 = 1
  1211.                 Case "8"
  1212.                     PrintLn "@X0FUsers help file path & filename  @X0B(Enter Below)"
  1213.                     InputStr "", TSTRING011(7), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1214.                     FSeek 2, 809, 0
  1215.                     FWrite 2, TSTRING011(7), 75
  1216.                     BOOLEAN006 = 1
  1217.                 Case "9"
  1218.                     PrintLn "@X0FEDSBack locking timetable path & filename  @X0B(Enter Below)"
  1219.                     InputStr "", TSTRING011(8), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1220.                     FSeek 2, 884, 0
  1221.                     FWrite 2, TSTRING011(8), 75
  1222.                     BOOLEAN006 = 1
  1223.                 Case "10"
  1224.                     PrintLn "@X0FSecurity level trash can path & filename  @X0B(Enter Below)"
  1225.                     InputStr "", TSTRING011(9), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1226.                     FSeek 2, 959, 0
  1227.                     FWrite 2, TSTRING011(9), 75
  1228.                     BOOLEAN006 = 1
  1229.                 Case "11"
  1230.                     PrintLn "@X0FPath & filename to flag upon successful verification  @X0B(Enter Below)"
  1231.                     InputStr "", TSTRING011(10), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1232.                     FSeek 2, 1034, 0
  1233.                     FWrite 2, TSTRING011(10), 75
  1234.                     BOOLEAN006 = 1
  1235.                 Case "12"
  1236.                     PrintLn "@X0FFile to execute upon successful verification  @X0B(Enter Below)"
  1237.                     InputStr "", TSTRING011(11), 12, 75, Mask_Path() + Mask_File(), 2 + 4
  1238.                     FSeek 2, 1109, 0
  1239.                     FWrite 2, TSTRING011(11), 75
  1240.                     BOOLEAN006 = 1
  1241.             End Select
  1242.             Goto LABEL021
  1243.             :LABEL022
  1244.         Case "R"
  1245.             BOOLEAN005 = 0
  1246.             BOOLEAN006 = 1
  1247.             :LABEL023
  1248.             If (BOOLEAN005) Goto LABEL024
  1249.             If (BOOLEAN006) Then
  1250.                 PrintLn 
  1251.                 PrintLn "@X0AReading registration information..."
  1252.                 FSeek 2, 47, 0
  1253.                 FRead 2, STRING005, 25
  1254.                 FRead 2, INTEGER002, 4
  1255.                 FSeek 2, 1114, 1
  1256.                 FRead 2, INTEGER005, 4
  1257.                 FRead 2, INTEGER006, 4
  1258.             Endif
  1259.             Cls
  1260.             PrintLn "@X0FEDSUtil Registration Information  @X0A(Screen #1 of 1)"
  1261.             PrintLn "@X0E────────────────────────────────────────────────────"
  1262.             PrintLn 
  1263.             PrintLn "@X0F (@X091@X0F) @X0ASysOp Name............: @X0B" + STRING005
  1264.             PrintLn "@X0F (@X092@X0F) @X0ARegistration #........: @X0B" + String(INTEGER002)
  1265.             PrintLn "@X0F (@X093@X0F) @X0ADate + Time Registered: @X0B" + String(INTEGER005)
  1266.             PrintLn "@X0F (@X094@X0F) @X0AVersion Registered....: @X0B" + String(INTEGER006)
  1267.             PrintLn 
  1268.             STRING004 = ""
  1269.             InputStr "(Q)uit, (H)elp, Registration information command", STRING004, 15, 1, "1234QHqh", 2 + 4
  1270.             STRING004 = Upper(STRING004)
  1271.             Newline
  1272.             Select Case (STRING004)
  1273.                 Case "Q"
  1274.                     BOOLEAN005 = 1
  1275.                 Case "H"
  1276.                     Cls
  1277.                     Print "@PON@"
  1278.                     DispFile PPEPath() + "EDSCR", 1 + 4
  1279.                     Print "@POFF@"
  1280.                 Case "1"
  1281.                     InputStr "SysOp Name", STRING005, 12, 25, Mask_Ascii(), 2 + 4
  1282.                     FSeek 2, 47, 0
  1283.                     FWrite 2, STRING005, 25
  1284.                     BOOLEAN006 = 1
  1285.                 Case "2"
  1286.                     InputInt "Registration #", INTEGER002, 12
  1287.                     FSeek 2, 72, 0
  1288.                     FWrite 2, INTEGER002, 4
  1289.                     BOOLEAN006 = 1
  1290.                 Case "3"
  1291.                     InputInt "Date + Time Registered", INTEGER005, 12
  1292.                     FSeek 2, 1190, 0
  1293.                     FWrite 2, INTEGER005, 4
  1294.                     BOOLEAN006 = 1
  1295.                 Case "4"
  1296.                     InputInt "Version Registered", INTEGER006, 12
  1297.                     FSeek 2, 1194, 0
  1298.                     FWrite 2, INTEGER006, 4
  1299.                     BOOLEAN006 = 1
  1300.             End Select
  1301.             Goto LABEL023
  1302.             :LABEL024
  1303.         Case "Q"
  1304.             BOOLEAN001 = 1
  1305.     End Select
  1306.     Goto LABEL002
  1307.     :LABEL025
  1308.     FClose 2
  1309.     Return
  1310.     :LABEL026
  1311.     TSTRING011(0) = PPEPath() + "TRASH.BIN"
  1312.     TSTRING011(1) = PPEPath() + "EDSALLOW.CAL"
  1313.     TSTRING011(2) = PPEPath() + "EDSBKBAD.USR"
  1314.     TSTRING011(3) = PPEPath() + "EDSBAD.NUM"
  1315.     TSTRING011(4) = PPEPath() + "SYSOP.MSG"
  1316.     TSTRING011(5) = PPEPath() + "USER.MSG"
  1317.     TSTRING011(6) = PPEPath() + "EDSNMNU."
  1318.     TSTRING011(7) = PPEPath() + "EDSBHLP."
  1319.     TSTRING011(8) = PPEPath() + "EDSTABLE.LOK"
  1320.     TSTRING011(9) = PPEPath() + "EDSBKBAD.SEC"
  1321.     TSTRING011(10) = ""
  1322.     TSTRING011(11) = ""
  1323.     STRING009 = ""
  1324.     STRING001 = ""
  1325.     STRING005 = ""
  1326.     STRING006 = ""
  1327.     STRING007 = ""
  1328.     STRING008 = "ATDT"
  1329.     STRING010 = "1"
  1330.     TBYTE011(0) = 0
  1331.     TBYTE011(1) = 0
  1332.     BYTE007 = 0
  1333.     BOOLEAN002 = 0
  1334.     BOOLEAN003 = 1
  1335.     WORD002 = 182
  1336.     INTEGER002 = 0
  1337.     INTEGER003 = 0
  1338.     BYTE001 = 3
  1339.     WORD001 = 910
  1340.     BYTE013 = 0
  1341.     BYTE002 = 3
  1342.     BYTE003 = 3
  1343.     BYTE009 = 3
  1344.     BYTE010 = 3
  1345.     BYTE005 = 1
  1346.     BYTE006 = 1
  1347.     TBOOLEAN008(0) = 1
  1348.     TBOOLEAN008(1) = 1
  1349.     TBOOLEAN008(2) = 0
  1350.     TBOOLEAN008(3) = 0
  1351.     TBOOLEAN008(4) = 0
  1352.     BYTE008 = 3
  1353.     TBOOLEAN009(0) = 1
  1354.     TBOOLEAN009(1) = 1
  1355.     TBOOLEAN009(2) = 0
  1356.     TBOOLEAN009(3) = 1
  1357.     WORD003 = 18
  1358.     BYTE012 = 0
  1359.     BOOLEAN007 = 0
  1360.     BOOLEAN010 = 0
  1361.     BOOLEAN011 = 1
  1362.     WORD004 = 4
  1363.     BYTE004 = 10
  1364.     BOOLEAN012 = 1
  1365.     INTEGER007 = 0
  1366.     INTEGER008 = 0
  1367.     INT001 = 0
  1368.     BOOLEAN013 = 1
  1369.     BOOLEAN014 = 0
  1370.     BYTE014 = 0
  1371.     WORD005 = 0
  1372.     Return
  1373.     :LABEL027
  1374.     End
  1375.  
  1376. ;------------------------------------------------------------------------------
  1377. ;
  1378. ; Usage report (before postprocessing)
  1379. ;
  1380. ; ■ Statements used :
  1381. ;
  1382. ;    1       End
  1383. ;    8       Cls
  1384. ;    399     Goto 
  1385. ;    281     Let 
  1386. ;    31      Print 
  1387. ;    221     PrintLn 
  1388. ;    213     If 
  1389. ;    4       DispFile 
  1390. ;    1       FCreate 
  1391. ;    1       FOpen 
  1392. ;    3       FClose 
  1393. ;    1       Log 
  1394. ;    31      InputStr 
  1395. ;    15      InputYN 
  1396. ;    21      InputInt 
  1397. ;    2       Gosub 
  1398. ;    4       Return
  1399. ;    11      Newline
  1400. ;    84      FSeek 
  1401. ;    45      FRead 
  1402. ;    110     FWrite 
  1403. ;
  1404. ;
  1405. ; ■ Functions used :
  1406. ;
  1407. ;    128     +
  1408. ;    158     ==
  1409. ;    6       <
  1410. ;    6       <=
  1411. ;    12      >=
  1412. ;    213     !
  1413. ;    12      &&
  1414. ;    6       ||
  1415. ;    18      Upper()
  1416. ;    2       Space()
  1417. ;    2       Ferr()
  1418. ;    5       Chr()
  1419. ;    19      Trim()
  1420. ;    15      NoChar()
  1421. ;    30      YesChar()
  1422. ;    4       Strip()
  1423. ;    21      String()
  1424. ;    1       Mask_Num()
  1425. ;    12      Mask_File()
  1426. ;    12      Mask_Path()
  1427. ;    6       Mask_Ascii()
  1428. ;    17      PPEPath()
  1429. ;    1       Exist()
  1430. ;    2       Psa()
  1431. ;
  1432. ;------------------------------------------------------------------------------
  1433. ;
  1434. ; Analysis flags : No flag
  1435. ;
  1436. ;------------------------------------------------------------------------------
  1437. ;
  1438. ; Postprocessing report
  1439. ;
  1440. ;    6       For/Next
  1441. ;    0       While/EndWhile
  1442. ;    80      If/Then or If/Then/Else
  1443. ;    17      Select Case
  1444. ;
  1445. ;------------------------------------------------------------------------------
  1446. ;                 AEGiS Corp - Break the routines, code against the machines!
  1447. ;------------------------------------------------------------------------------
  1448.